#!/usr/bin/perl

use strict;

for (my $i = 0; $i <= $#ARGV; $i++) {
    if (-e $ARGV[$i]) {
	my $o = $ARGV[$i].".good";
	open(A, $ARGV[$i]);
	chomp(my $d = <A>);
	chomp(my $v = <A>);
	close(A);
	my @dels = split(/\s+/, $d);
	my @vels = split(/\s+/, $v);
	open(B, ">".$o);
	for (my $j = 0; $j < $#dels; $j++) {
	    print B $dels[$j]."  ".$vels[$j]."\n";
	}
	close(B);
    }
}
